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MODULE GETLOC ( 
LAweyAce (BLISS 5¢) « 

ae 

BEGIN 

: 

RRR RAE AERA EERE E EAA AERA ETE R ATA ERTEERAREEEE 


] 
| 
| 
; 1 8 01 
; 0 o 
: : $008 
: 4 0004 9 
3 5 BaRe 
Pa ¢ 006 1 | 
: 7 0007 1 
; 8 0008 1 
© 0009 1! * 
3 10 0010 1 !* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY # 
3S 0011 1 !* DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * 
; \¢ boy 8 ! : ALL RIGHTS RESERVED. © 
Py . * 
: 616 0014 1 !* ee SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
ae 0015 1 !* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
. ce om 0016 1 !* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
oS ae 0017 1 '* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
: 38 0018 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
; 13 sith : :* TRANSFERRED. * 
3 '® ® 
ci ae 0021 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
|. a 14 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
: $3 003 is CORPORATION. * 
3 '@ * 
3 $2 0025 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
3 6 0026 1 !* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. . 
; ee 0027 1 I! * | 
; ww 0028 1 !* a 
: $3 34 LL eee RRR RARER ARREARS | 
; 0 0030 1 
0031 1 !+4+4 
coy a oi tT4 2 
3 33 0033 1! FACILITY: F11ACP Structure Level 2 
; 0034 1! 
; 0035 1 ! ABSTRACT: 
3; & 0036 1! ; 
os oe 0037 1! This routine cenqutes the desired piacement LBN and RVN from the 
; HS st } placement control data supplied by the cailer. 
s 0 0040 1 ! ENVIRONMENT: 
>: 641 0041 1! | 
; 42 Bog 1! STARLET operating system, including privileged system services 
: 63 00435 1! and internal exec routines. | 
: 8644 044 1! 
2 65 045 1 !-- 
s 0046 1! 
s 67 0047 1! 
3 ri ape8 ! AUTHOR: Andrew C. Goldstein, CREATION DATE: 11-Dec-1978 10:41 
; 20 0081 ! : MODIFIED BY: 
3 26 B36 1! v03-001 CDS0001 _. Christian D. Saether 30-Dec-1983 | 
37 0084 ' Use L_NORM Linkage and BIND_COMMON macro. | 
2 oe 055 1! B0101 ACG0121 Andrew C. Goldstein, 16-Jan-1980 21:44 
; 28 bne$ i Make context save and restore into subroutines | 
; 
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] 
| 

; 6% 1033 } GLOBAL ROUTINE GET_LOC (FIB, LOCRVN, LOCLBN) : L_NORM NOVALUE = 

3 

j= 132? 1 !4+ 

; 6 1 $ 1 i 

3 o8 82 ! FUNCTIONAL DESCRIPTION: | 

. > 1988 2s This routine computes the desired placement LBN and RVN from the 

: 4! 1399 ! } placement control data supplied by the caller. 

Ss 1066 1! 

ae." 1065 1 ! CALLING SEQUENCE: 

a 1064 1! GET_LOC (ARG1, ARG2, ARG3) 

; 1065 1! 

: 77 1298 1 ! INPUT PARAMETERS: 

ccs a 1067 1! ARG1: address of user FIB 

; 1068 1! 

; 1069 1°! IMPLICIT INPUTS: 

i 1070 1! CURRENT_VCB: VCB of volume in process 

3 : 130] : CURRENT_UCB: UCB of volume in process 

: 84 1998 1 ! OUTPUT PARAMETERS: 

;. 1074 1! ARG2: address to return placement RVN 

; 1075 1! ARGS: address to return placement LBN 

> a 1076 1! 

; 88 1077 1°! IMPLICIT OUTPUTS: 

; 1078 1! NONE 

; 1079 1! 

; 91 1080 1 ! ROUTINE VALUE: 

:- 1081 1! NONE 

; 9 1986 1! 

: 94 1085 1 ! SIDE EFFECTS: 

; 9 1084 1! volume context may be switched 

; «496 1085 1! 

: 97 1086 1 !-- 

>; «298 1087 1 

; WP 1088 2 BEGIN 

: 100 1089 

s 101 1090 MAP 

: 102 1091 FIB : REF BBLOCK; ! user FIB arg 

: 103 1936 

: 104 109 LITERAL 

: 105 1094 MAX_CODE = MAXU (FIBSC_CYL, ! highest alignment code 

> 106 1095 FIBSC_LBN, 

3: 107 1998 F 1BSC_VBN 

: 108 109 FIBSC-RFIS; 

; 109 1098 

: 110 1099 LOCAL 

3.612121 1100 LBN, ! LBN Fool ting from nop operation 

: V6 119) WINDOW : REF BBLOCK; ! window used to map related file 

: (1146 1108 BIND_COMMON; 

3; «6115 1104 

3 ig 1105 EXTERNAL ROUTINE 

. 1106 SWITCH_VOLUME : L_NORM, ' switch context to specified volume 

; «118 1107 SAVE _CONTEXT : L_NORM, ' save reentrant context area 

3 119 1108 RESTORE CONTEXT : L_NORM, ' restore reentrant context area 

: 120 1109 OPEN_F ICE : LINORM, ! open file for internal use 
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' subset of the former), we open the specified file in secondary context and 
map the given VBN. 


CF IBSC fee FIBSC_RF I): 
SAVE. CONT at 


CHSMOVE ( tFiose. LENGTH FIBCFIBS$W_FIDJ, SECOND_FIBCFIBSW_FIDI); 
IF .FIBCFIB$B ALA ALIG 6nd fal FIBSC-RF I 
AND (. ofr leew boc NUM wee 
16$w COC RVN) NEQ 0) 
THEN CHSMOVE (FIDSC_LENGTH, FIBCFIBS$W_LOC_FIDJ, SECOND_FIBLFIBSW_FIDJ); 
WINDOW = 2 pOPEN. FILE (SECOND_FIBCFIBSW_FIDJ 
LBN = MAP_VBN7(.FIBCFIBSL_COC_ADDRJ,~ O04) 
64 IF .LBN eae 


THEN LBN = MAP_VBN (.BBLOCK C.WINDOWCWCBSL Fe). FCBSL_FILESIZEJ, . WINDOW); 


oo 
ou 


3 121 1110 MAP_VBN : L-NORM, map virtual to logical block 

s ¢ 1111 CLOSE_FILE : LINORM; close internal file 

He WM 

3 1 ? Wie Case on the different alignment types, converting each to RVN and LBN. 

: 127 111 

:; 128 1419 CASE .FIBCFIBSB_ALALIGN) FROM 0 TO MAX_CODE OF 

> 129 1118 SET | 

; 150 111 

s 131 1120 C0]: ! zero means no placement 

. 3 ¢ 1121 IN 

, F 11 § -LOCRVN = 0; 

s 154 11 -LOCLBN = 

3s 135 1124 3 

3 136 1125 

; HA 1% § CF IBSC cvLd: ! cylinder number supplied 

; 139 1128 SWITCH vOLUs (. FIBCFIBSW_LOC_RVN)); 

3; 140 1129 -LOCLBN = .FIBCFIBSL_LOC_KDDRI « 

3 161 1130 + CORRENT OCB OCBSB_SECTORS) * 

: 1 1131 . CURRENT _UCBLUCB$B_TRACKS] / 

: 614 11 ¢ . CURRENT _VCB vebue BLOCKFACT); 

: 144 11 4 -LOCRVN = (IF .CURRENT VCBLVCB$V_EXTFIDJ 

3: «6145 1134 4 THEN . oF OFF 1838. LOC_RVN 

: 146 1135 4 ELSE .FIBCFIBSW_ LOCTRYNI 

: «147 1136 3 3 

: 148 1137 2 END; 

3: 149 1138 2 

: 150 1139 2 CF IBSC_LBN): ' LBN suppplied 

> 200 1140 3 BEGIN 

3 126 1141 3 .LOCLBN = .FIBCFIBSL_LOC_ADDR) 

s ¥3> 1336 4 -LOCRVN = (IF .CURRERT >VEBLvcasv, Exyr ies 

: 154 1143 4 THEN . oF 1BLFIG et 

;. 1144 4 ELSE .FIB F Bea: toe -N 

3; 156 1145 3 ); 

. %S7 1146 2 END; 

; 6158 1147 

: 12) 1328 ! For both related file and VBN placement (the Latter being being a special 

: 161 1150 

: 166 1151 

s 1126 

: 164 115 

> 165 1154 | 

3 166 1155 

3; 167 1138 

: 168 1157 3 

3: 169 1158 4 

: 170 1159 4 

. ore 1160 

; 176 1161 

: 17 116¢ 

> 12% 116 | 

: 175 11 

: 176 11 

: 177 11 3 
| 


OO oe oe Fe Fe Fe Fe TS Fe FO FS FOS HS Fe He FE FS FS FS HS FS FS FR FS FS FS FS HS HS 5S 6e STS FETE TS EE TS FETS FS TS HSS HSS HS SHS HS HS HSS HSS SD 


| wna Mk oOo NUMERO CO - wu rem « 
' ~N non ~~ NNR CPM ms ee Mwy, 
~ ocr - eeccrer ee - -— cocecnm- — 
© ee \ an ear y er ee - rere = 
oa PRPS FS FS FS FS FS FSFE HS FS FS STS TS TS FCS SCR FCE HS SS SESE SESE SESE SESE SESE Fe 
a 
ae 
ee. 
™N 
~~ 
@ 
| o 
| uv 
| oO 
auld 
| te 
| w 
o 
0“ 
+4 
wT 
nw oOo 
te _— fs 4 
ox =< ~ 
_ ws wn 
wer and a 
>u 2 ba | 
wu So w | 
Ne Vv a | 
ma ' . 
tw w ~~ 
ne > 2 a 
awn <= @ bg w 
—— yn > N = 
~= -— 6 a pom z =z 
aw ><a N ws ai SO -= oqoqao -# 
= ww ' oo ® “co cc « et aw EO 
-> == L yd >a a> vw wow 
—-A 22 =< bo w” + . . - Oo oOo = 
4 oO w 3 s+ & ~=x ANAM ANS Oem O 
=xwW - Ovwo oO ~ a ico wete-ae wees 68 wes 
Len o > Iw za sw —- Ww «& ” wa 
>a So eS * wmMmo -ttte 22 wer ww 8s ett omtw~ + 
Oo w veo Frau + M@ OCG s+ 2 & 8 >O n3Baeoa-OCne Orn- EO 
Oo or veo Ww Ww wD OMAHA ecw om ~owotcwrodrc co ~roO 
o 4 ast Fre ZHY OC - eer ev noc cc wo cw & 
we i -OoO —MWO oO FOMOwrrititi ti tio oo ~ wow w ow + ~aDo w~ 
NO | md w> Bwot GC WO=—MAMMMOMNM 285 DK —DONUOOMK— UV MHO MNO 
orm we - Or" YNEOY AH OWMUMVUMTOOBR CGE MRu 1 OECa i Oen su i =e 
7 oF — 
Mo = | 
wwe La) aw we 2222 Pd a —_ ad a ya 
oo se ag Cc +2 @a@aeacae wow =@ aa 3un aQmawvw war @ 
om = — Kw Kee we ee oo D> aa NUN IN ING II IO 
o- 7 -—2a xxxxK WW 2o>>Mo Zeaeere >>> oe USS orate oe ewe SS 
_— S —— www Aa woo dts Se SSS SSSeSeSesseesese 
wv ‘ > «i Se oe ° "*EEw - VEvuVEZTvs~ETTETSTETIEZTOMOLEEZOTZz 
ow ~ 
mr he - 
i) w °o 
aa > 
~~ @® @ Cc wo oe oe oe ef 
nm °o Cc A A oo ae Po 
cas Vv w _ N a) ww 
4 
-— -- - ocr @Oeo EE SOO ONS AS 
ooocbe-— IONIC OSI ST TFT TON OD 


ewww oUMOO«tN <7 O<ar---COO- < 
DOOOOM uu COOK VOHVOERV- OOowO 


wT YwvV 
—- @ao@ 


aow 
oo 


: CURRENT_RVN; 


E (.WINDOW); 
-LBN + 1; 


ONTEXT (); 


We KONE MM ONE 
OMMMN TMA 


ERR_EXIT (SS$_BADPARAM) ; 
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Sina ayaa 7 
12 | 
GETLOC 1be56 =-1984 233: VAX-11 Bliss-32 V4.0-742 Page 6 
v04-000 12-88-13 90:33:96 DISKSVMSMASTER:CF11X.SRCJGETLOC.B32; 1 . (2) | 
04 11 0006A BRB 7 ; : 
50 26 «OA x O6¢ $$: MOVZWL $8cao) RO + 1144 ; 
08 8c 5 p 070 7$: MOVL RO, @LOCRVN : 1142 : 
4 00074 RET + 111 ; 
00006 cr 00 F 075 8$: CALLS #0, SAVE_CONTEXT + 1155 : 
0 04 AC p O7A MOVL. F16, RO + 1156 ; 
04 Ab 04 Ad 06 Ove MOVC3 #6, 4(RO), 4(R6) : : 
50 4 aC p MOVL F18 RO + 1157 ; 
04 1 AO 91 00088 CMPB =s«-33(RO), #4 : ; 
10 1 O8C BNEQ 10$ : ; 
22 AO B5 O008E TSTW  34(RO) + 1158 : 
05 1 9991 BNEQ 3 : : 
26 AO B 93 TSTW (RO) + 1159 : 
6 1 9096 BEQL 10$ : : 
04 Ab 22 AO $ 28 00098 9$ MOVC3 #6, 34(RO), 4(R6) + 1160 : 
bb OO09E 10$ PUSHL # : 1162 : 
04 Ab 9F OOOA PUSHAB 4(R6) : ; 
00006 CF 98 FB OOOA CALLS #2, OPEN_FILE : : 
52 0 oO Bphe OVL RO, WINDO 3 3 
52 DD OOOAB PUSHL WINDOW + 1163 : 
50 046 AC dO 900aD MOVL FIB, RO ; ; 
28 AO DD 00081 PUSHL 40(RO) ; ; 
00006 CF 02 FB 00084 CALLS #2, MAP_VBN ; : 
53 20 DO 00089 MOVL RO, LBN : : 
FFFFFFFE © 8F 53 1 9008¢ CMPL  LBN, #1 + 1164 : 
11 12 000C BNEQ 11$ : : 
32 dD 000C5 PUSHL WINDOW + 1165 : 
50 18 A2 00 000C¢7 MOVL 4 (WINDOW) , RO : ; 
38 AO DD 000CB PUSHL 56(RO) : : 
00006 cf 08 FB O00cE CALLS 2, MAP_VBN : : 
3 50 DO 000D MOVL RO, LBN ; : 
52 DD 90006 11$: PUSHL NDOW : 1167 : 
00006 CF 01 FB 00008 CALLS #1, CLOSE_FILE : : 
00006 CF 09 FB OOODD CALLS #0, RESTORE CONTEXT + 1168 : 
oc BC 01 AS 9E 000E2 MOVAB 1(R3), @LOCCBN : 1170 : 
08 BC AO AA DO 000E MOVL  -96(BASE), @LOCRVN : 1171 : 
04 OO00EC RET : 1180 : 
; Routine Size: 237 bytes, Routine Base: $CODE$S + 0000 : 
; 192 1181 #1 F 
: 193 1188 1 END : 
: 19% 1183 0 ELUDOM : 
: PSECT SUMMARY | ; 
; Name Bytes Attributes : 
: S$CODES 237 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) | : 


812 Bx gt 
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Library Statistics 


cooccess Synbo|s ecceoses Pages Processing 
File Total Loaded Percent Mapped Time 


~$255$DUA28: CSYSLIBILIB.L32;1 18619 35 0 1000 00:01.9 


: COMMAND QUALIFIERS 
: BLISS/CHECK=(FIELD, INITIAL ,OPTIMIZE)/LIS=LIS$:GETLOC/OBJ=0BJ$:GETLOC MSRC$:GETLOC/UPDATE=(ENH$:GETLOC) 


3; Size: 237 code + 0 data bytes 
3; Run Time 00:17.6 

: classed. Time: 00:33.7 

3; Lines/CPU Min: 404 

: “cece Ale tie | 5026 

: poneey Used: 224 pages 

3 a 


; Compilation Complete 
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